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~ TITLE macena iN ENTRY POINT TO VAX=11 MACRO 
IDENT ‘v04-000' 


1D 
PARARARABARLAAAAAAAAALALSALELALA SERS LE LEELA RASA SESE SESE RR SERS SER RRR ESE S EEA SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS oyna eaee a A LICENSE AND MAY BE USED AND gt tty 
ONLY ACCORDANCE W THE TERM CH C AN TH_TH 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
cameoket itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* * 
;* * 
+t 5 
fe ® 
;® * 
ft * 
.* * 
: i * 
;* * 
* * 
;* TRANSFERRED. * 
: tt * 
+t * 
: ik ® 
* te * 
:t * 
*t ® 
+t * 
1 & 
:t ‘ 
* * 


; AAA A ATER A ATA A AAA AA AA RAAT A AAA A AAA A AAA A TATA TEA e eee eee eee 
FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translate 
modules for input to the VAX-11 LINK 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 25-AUG-78 
MODIFIED BY: 


v03-005 MTROO31 Mike Rhodes 12-Apr-1983 
Add code to MAC_DEAL_MEM to Rn poe dynamic memory strus tures 
used for the .LINK directive. 


V03-004 MTROO26 Mike Rhodes 23-Feb-1983 
Correct the resetting of the ro eee file name size when 
performing multiple file assemblies. 


v03-003 MTROO21 Mike Rhodes 20-Aug-1982 
Correct returning of most severe status for singie module 
assemblies containing an error. 


v03-002 MTROO18 Mike Rhodes 7-Jun-1982 
Add iogic to MACRO_EXIT (et. al.) to retain the most severe 
status of multiple assemblies for the job's exit status. 


it Maat source code into object 


eee ed 
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v04-000 "er -SEP-1984 8F 13 i§ YRACRO SRe MAIN.MAR; 1 . (1) | 
0 3 
$609 3g 3 v03-001 TROO15 Mike Rhodes 7-Jun-1982 
4 60 ; Add a CLR W*MACSINPUT RLFNM+NAMSB. RSL to reset the related 
00 61; ile. size, as well as the address. This corrects a multiple 
0000 o¢ 3 file assembly problem where the second file name is smaller 
2000 63 ; than the first and a related file (suc.. as a library) is 
ti ee 3 present. 
$000 66 ; v02-048 BLS0143 Benn Schreiber 6-F eb-1982 
0000 67 ; 
0000 68 ; 
4h 9 : v02-047 BLS0057 | Benn Schreiber 13-Jun-1981 
B58 oY ; Corrrect addressing modes to general 
6090 ie 3=- 
0000 7 


| 
| 
| 
| 
Change MOVZBL to MOVZWL due to nam$c_maxrss increase. 
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y0%-000 DECLARATIONS oe ae Es be: 19:18 ERACRO SRE MAIN.MAR; 1 . 3) 
6 -SBTTL DECLARATIONS 
? : INCLUDE FILES: 
000 ag 
0 8 Ee 
98 1 3; MACROS: 
000 RS 
0008 84 SRABDEF DEFINE RAB OFFSETS 
000 85 Bey eee ;DEFINE STATUS CONDITION VALUES 
4 86 CLIDEF sDEFINE CLI OFFSETS CCL ISAS OT ILS ERV) 
000 87 SRAC _GENVALDEF ;DEFINE COMMONLY USED tymBOL S IN MACRO 
0000 88 SMAC_SYMBLKDEF ;DEFINE SYMBOL ae OFFSETS 
0000 89 SMAC_INTCODDEF sDEFINE INT. FILE OPCODES 
0000 90 SMAC_CTLFLGDEF ;DEFINE FLAGS IN MACS$GL_FLAGS 
0000 91 SMAC_MLFDEF ; Define MLF offsets 
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vo6=000 VAX=1 CRO ASSEMBLER ENTRY POINT ~SEP=1984 89549519 EMACRO. SRe MAIN.MAR; 1 sigs (3) 


: .SBTTL VAX=11 MACRO ASSEMBLER ENTRY POINT 

: FUNCTIONAL DESCRIPTION: 

THE ASSEMBLER IS ENTERED AT 'MACSMACRO_ENTRY’. THIS ROUTINE 
| 
} 


SETS UP THE CLI CALLBACK ADDRESS, AND THEN PERFORMS 
E FOLLOWING ACTIONS: 


TORAGE FOR PASS! 
A COMMAND AND VALIDATE 


ORM PASS 
IALIZE STORAGE FOR PASS 2 
ORM PASS 2 


=z 
nm“ 


TH 
1) R 
¢) S 
)G 
4) P 
5) 1 
$) P 
C 

CALLING SEQUENCE: 

CALLS #1,MACSMACRO_ENTRY 
INPUT PARAMETERS: 

CLISA_UTILSERV(AP) CLI CALL BACK ADDRESS 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 


MA 
? 

1 
7? 
7? 
77? 
77 
77 
77 
7? 
7? 
77 
7? 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 
77 


ee ms ed ed ed ed ed ed dd ed dd 2 3 2 2 dd 


SQN 


Ce i ew ew a wm wm wm we wm we aw we ww ww fn we nln lwo lololololelolelelelelelelelololelelolelelolelal ole ole! =m) 
BPP EEE EE AMNNWIWIWIWIWIWIIDININININININPINININ 2 2 PS | MOOOOOOOOCOCOOOOOOOO 
WOO NIA ME WIN OS OOO NAME WIN OOO NIAU ES WIN @ O OOO NAMES WAN 0 OO NAUE WR OOONOULSW 


ee ec ce ae ee em ee ee em ee ee ee ee ee ed ed ed dS od dd od od dd od dS 3 


? 
7? 
? 
7 
7 
7 
7 
? 
4 
7? 
7 
7 
? 
7 
? 
7? 
? 
? 
? 
? 
? 
: 
C 
1 
6 


0000000 ~-PSECT MACS$RO_CODE_COM,NOWRT ,GBL LONG 
0000 09 ~-ENTRY MACSMACRO_ENTRY ,“M<> sMACRO-32 ENTRY POINT 
QOOO'CF SE 09 000 MOVL SP ,W*MACSGL_INI_SP sSAVE INITIAL SP FOR a RECOVERY 
QOOO'CF 5C¢ MOVL AP,W°MACSGL_INI~AP :SAVE INITIAL AP FOR ERROR RECOVERY 
OOO'CF 5D 0 MOVL FP, W°MACSGL_-INI-FP sSAVE_INITIAL FP on ERROR SeCuvens 
B 0000'CF E 1 MOVAB WeRACSGL FLAGS R11 sPOINT R11 TO THE FLAGS WORD 
6B 7C 1 CLRQ (R11 ;CLEAR ALL FLAGS 


' 
— | 
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MACSRA N ENTRY POINT TO VAX=11 MACRO 16-SEP-19 :18 VAX/VMS Macro V04-00 Page 
000 VAX=11 MACRO ASSEMBLER ENTRY POINT mit) BF: 18: 18 ¥ FRACRO. SRe MAIN.MAR; 1 . (3) 
08 AC pO 0018 1 ¢ MOVL  CLISALUTILSERV(AP),~ GET CLI CALL BACK ADDRESS 
00 Cr 1B W*MACSGL_CLIADDR’'; INTO A KNOWN LOCATION 
00000000' GF 1 O~A 3 : al MOVZBL #1 JG*MACSGL_ENLSTS s ASSUME A SUCCESSFUL ASSEMBLY 
F OF OC 154  ~  PUSHAB W*MAC$GQ_RNT_TOT ZSTACK TIMING BLOCK ADDRESS 
0000" cP ro FB 9 133 CALL 1,W°MACSTIMER_ON :BEGIN TIMING WHOLE ASSEMBLER RUN 
ott OF 1 : PUSHAB W“MAC$GQ_RNT_INI SSTACK TIMING BLOCK ADDRESS 
0000' er” 1 FB 00 15 CALLS _#1,W*MACSTIMER_ON SBEGIN TIMING INITIALIZATION 
0 158 SCREATE FAB=W°MACSTERM-FAB,- | CREATE TERMINAL OUTPUT CHANNEL 
7 159 RR=W“MACSERR_OPN_OUT 
3750 £9 O46 160 BLBC _RO,MACSLAST_CRANCE :BRANCH IF ERROR 
ate3 161 SCONNECT RAB=U=RA STER nRAB :CONNECT THE RECORD STREAM 
2550 €9 0098 168 BLBC RO, MACSLAST_CRANCE :BRANCH IF ERROR 
058 165 ; GET A COMMAND AND PROCESS IT 
058 166 
058 167 10S: 
QO00'CF SE 00 058 168 MOVL SP WeMACSGL_ SAVE_SP :SAVE STACK POINTER FOR ERROR RECOVERY 
00A9 30 0060 169 BSBW MACS$SETU :SET UP TO PROCESS A COMMAND 
0000'CF OF 006 170 PUSHAB UMACsGa, RNT_INI i STACK TIMING BLOCK ADDRESS 
0000'CF 61 FB 0067 171 CALLS “ :WeMACSTIMER, OFF ‘STOP TIMING INITIALIZATION 
FF91" 30 006C 1% BSBW MACSGETCMD SPARSE A COMMAND LINE 
0282 0 O06F 17 BSBW MACSINITP1 SINITIALIZE FOR PASS 1 
02D 0 O72 174 BSBW MACSPASS1 [PERFORM PASS 1 ON THE INPUT 
O2eF 0 0075 175 BSBW MACSINITP2 ‘INITIALIZE FOR PASS 2 
FF8S5' 30 0078 176 BSBW ACSPASS2_DRIVR ‘PERFORM PASS 2 
FF82" 30 0078 177 BSBW  MACSCLOSE~FILES ‘CLOSE OUTPUT FILES 
1A 11 O07 178 BRB MACRO_EXIT :G60 EXIT 
0080 179 
0080 180 MACSLAST_CHANCE:: 
5B OO00'CF 9E 080 181 AOVAB  W*MACSGL_FLAGS,R11 RESET ait TO POINT TO FLAGS 
FF78° 30 S088 188 BSBW MACS$CLS_DEL_0BJ ‘DELETE OBJECT FILE IF IT EXISTS 
FF75*° 30 0088 184 BSBW MACSCLOSE FILES :CLOSE THE REST OF THE FILES 
5E O00C'CF 00 0088 185 MOVL MACSGL_INI_SP,SP TRESET SP 
SC O000'CF DO 090 186 MOVL U“RACSeE L7INI“AP,AP SAND AP 
5D 0000'CF DO 0095 1 W°MACSGL_INI_FP,FP [AND FP 
009A 188 MACRO_EXIT: 
09A 189 $DISCONNECT RAB WeMACSTERM. RAB ;DISCONNECT TERMINAL 1/0 
00AS 190 SCLOSE FAB=W°MACSTERM FAB~ : 0 E FI 
FFFFFFF8 8F CB 00B0 191 BICL PrCSTSSM: SEVERITY,- 3GET THE SEVERITY BITS FROM THE CURRENT 
50 00000000'GF 0B6 198 G“MACSGL_STATUS, RO : ASSEMBLY STATUS. 
1D 50 —s«E8 Bc 19 BLBS RO, WAR NINGS OR ERRORS INDICATED? 
50 00000000'GF 03 ED F 19% Cr 7v) 0 #0, #3, G*MACSGL_FNLSTS, NOW THERE 1S A WARNING/ERROR, 
F 00C8 195 BLSsU 58° is inERE A CHANGE IN 
0B 00000000'GF £9 OOCA 196 BLBC  G*MACSGL_ ENLSTS, 10$ ;NO- “TRAP SUCCESS vs. UARNING CONDITION. 
00000000 GF 90000000" Gf D9 0D1 197 5$: MOVL GPMACSGL Ss STATUS. G*MACSGL_FNLST :UBDATE THE EXIT STATUS. 
12 0000'C 3  €0 OODC 198 10$: BBS LG$V HORE INP W°MACSGL_FCAGS,208 ; ANCH Ri MORE INPUT FILES 
50 9000" CF OD —E2 199 MOVL UHACSeL STS§,R 3GET THE Fina ATUS 
a E 0 cs #STSSV, TANIB smsge RO,.+1 :DO NOT REPRINT stay RROR MESSAGE 
EB 1 SEXIT_S SEXIT WITH CODE IN | 
004 ‘DF 4 O00F4 é 20S: CLRL ~ a@W*MACSGL_INTQUE+4 :2ERO LINK IN LAST INTERMEDIATE BUFFER | 
Q: CF 0 00F8 MOVB §§_W*MACS$GB_INPNAMLEN, “RESET THE RELATED FILE SIZE 
003°C OFC 4 W*MACSINPUT RLENM*NAMSB_ RSL | 
O00'CF 9E OOFF 5 MOVAB U“HACSINP NAM _BUF ,- sAND ADDRESS FIELDS. 
004" CF 103 6 W*MACSINPOT_RCFNM+NAMSL_RSA | 
| 
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y0s~000 SETUP GLOBAL STORAGE TO PROCESS A COMMAN 5=SEP-1984 §4:19:18 ERACRO SRC MAIN.MAR; 1 - a Tal 
} c 19 .SBTTL SETUP GLOBAL STORAGE TO PROCESS A COMMAND 
10C 1 ++ 
! : 17 3; FUNCTIONAL DESCRIPTION: 
10C¢ 15 ; THIS ROUTINE INITIALIZES GLOBAL STORAGE IN PREPARATION 
} : 18 3 FOR PROCESSING A COMMAND LINE. 
10C¢ 18 ;-- 
10¢ 1 
10C¢ 39 MACSSETUP: 
0000'8F 00 GF 9 00 2c 196 1 MOVCS 4#0,(SP),#0,#MACSGK_IMP_SIZ,W*MACSGL_IMP_BEG ;CLEAR 
116 2 ; IMPURE STORAGE 
0200 8F 00 6€ 00 2c 0116 5 MOVCS #0,(SP),#0,#<HASHSZ+1>*4,= ;ZERO THE USER SYMBOL HASH TABLE 
0000' CF 011D 4 W*MACSAL_USYHSH 
0200 8F 00 6€ 00 2c 0120 5 MOVCS #0,(SP),#0,#<HASASZ+1>*4,- ;ZERO THE USER MACRO HASH TABLE 
0000' CF 01 f 36 W*MACSAL_UMCHSHTB 
a 2 209 3; Translate logical name SYSSLP_LINES to get Lines/page value. 
00000000'GF 00 FB O12, é 0 CALLS #0,G*LIBSLP_LINES ; Get number of Lines 
QOOO'cF 50 09 C3 0131 31 SUBL3 #9,RO,W°MACSGL_LN_PAGE ; Set size_allowing for 3 Line top 
0137 $36 ; margin, 3 Line bottom margin and 
bi! saz : Lines for header 
bis) i 3 INITIALIZE LISTING HEADER BUFFER 
0000'8F 20 6€ 00 2c 0137 37 MOVCS #0,(SP),#*A/ /,#MACSK_HD_SIZE,- ;SET BUFFER TO SPACES 
0000' CF 013€ $36 W*MACS$AB_HD_TITLE 
0000°8F 20 OF 9100 2c otal 339 MOVCS #0, (SP) ,#AA/ { ARACSR SB1_S1Z.~ 7SET SUBTITLE BUFFER TO SPACES 
50 OO00'CF 9E 0148 0] OVAB W*MACSAB_VERSION;RO ~ ; Get address cf version string 
51 80 9A 9139 4¢ mOVZBL + 36 H OF VERSION STRING 
000O'cF 60 51 28 015 24 Ove R1, (RO) ,W°MACSAB_HD_VERSN ;COPY VERSION INTO BUFFER 
50 O000'CF 9E 0159 244 MOVAB WMACSAB_DEF_TITC,RO ; Point to default title 
51 80 9A O15E 245 mOVZBL (RO) + >GET LENGTH OF DEFAULT TITLE 
0000'cF 60 51 28 0161 246 MOovC R1,(RO) ,W°MACSAB_HD_TITLE ;SET AS DEFAULT HD_TITLE 
0167 247 SASCTIM_S TIMBUF=W*MACSAL_ATIM_DSC'; Set time into buffer 
50 OQO00'CF 9E€ 0178 248 MOVAB “W*MACSAB_HD_ PAGE RO sPOINT TO WHERE PAGE GOES 
80 30202020 65676150 8F 7D 017D 49 MOVQ #*A/Page” 0/,(RO)+ ; Store age ss 
6B 00000040 ef C8 0188 50 BISL2 #FLGSM-EVALEXPR,(R11) :SET EVALUATE EXPRESSION 
‘ 1 pO O18F 51 MOVL #1,W°MACSGL_LSB sSTART IN LSB 1 
0000'CF FF ef 9 O13 2¢ CVTBL #-1,W*MACSGC LIST IT sASSUME LISTING 
0000'CF 7530 8F 8B 19A 5 MOVW #30000. ,W°MACSGL_CRSYM START CREATED SYMBOLS AT 30000. 
02 90 O1A1 54 MOVB #ROXSV_DECIMAL 7 :SET RADIX TO DECIMAL 
000'CF 1A3. 255 W“MACSGB_RDXNDX 
50 00O'CF 9 1A6 26 MOVAB W*MACSGL_INTQUE,RO sINIT THE INT. FILE QUEUE 
60 0 oO 1AB 5 MOVL RO, (RO) | ae 
60 80 bE AE 38 MOVAL  (RO)+, (RO) ee 
50 0000'CF 3 18 5 MOVAB W°MAC$GL_INPQUE,RO sINIT THE INPUT FILE QUEUE 
60 50 OD 1B6 60 MOVL R 0) cease 
0 80 DE 0189 261 MOVAL (RO)+, (RO) ter 
50  0000'CF F 1B¢ 6¢ MOVAB W*MACS$GL_ERR_LIST,RO : INIT THE ERROR LIST QUEUE 
60 50 oD 1¢ 6 MOVL | sae 
0 80 DE 0104 264 MOVAL (RO)+, (RO) ee 
50 0000'CF — 01C7 265 MOVAB W*MACS$GL_FREE_LST,RO sINIT THE FREE PAGES LIST 
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yO4.000 SETUP GLOBAL STORAGE TO PROCESS A COMMAN ett Baas YRACRO SRE MAIN.MAR; 1 
a ’ 
ct F 1D¢ 68 MOVAB W°PSECTSBL ANK RO ‘POINT TO THE BLANK PSECT 
0 00 01D 69 MOVL  RO,W*MACSGL PSECTPTR ‘START POINTER IN DEFAULT PSECT 
AO 04 010C 0 CLRL Psst CURLOE(R ) ;START AT 0 
AO DS ODF 271 CLRL. PSCS$L~MAXLGTH(RO) 
ct 9 IE es MOVAB WMACSGL_SYM_PAGL,RO TINIT THE SYMBOL PAGES QUEUE 
2 »D OIE 7 MOVL RO,(RO) ~ ee 
BO DE O1EA 27% OVAL (R6)+, (RO) ae 
O1 9A OED 57% MOVIBL FI UARACSCE PSE MAX = SSTART WITH 
ve 3 Sits 6 RW MACSSYSLIB-SET ’ [SET UP SYSTEM MACRO LIBRARY AND RETURN 
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4052000 BEALLOCATE DYNAMIC MEMORY STRUCTURES SaSEP=1984 Oiscdz19 PAACMCSSROTRRIN Haged —_ 
OIFA a .SBTTL DEALLOCATE DYNAMIC MEMORY STRUCTURES 
1FA 1 344 
OIF é ; FUNCTIONAL DESCRIPTION: 
OIFA 4 i THIS ROUTINE IS CALLED IF THERE ARE MULTIPLE ASSEMBLIES TO 
OIFA 53 DEALLOCATE ALL DYNAMIC MEMORY STRUCTURES. 
IFA oF ; (REGISTERS NOT SAVED=--IN BETWEEN ASSEMBLIES) 
SIEA 89 
OIFA 30 MAC_DEAL_MEM: 
OIA 3 ? DEALLOCATE SYMBOL PAGES 
50 O000'DF OF O1FA 594 10$:  REMQUE @W°MACSGL_SYM_PAGL,RO ;GET NEXT CHUNK of PAGES TO DEALLOCATE 
0A 1D OIF 95 V [IF V-SET THEN ALL DONE 
51 14600 8F 3C 0201 296 MOVZWL #<5128STBSK _PG_MISS>,R1 :GET SIZE OF “CHUNK 
0085 30 0206 97 BSBW | DEAL_MEMORY SDEALLOCATE THE MEMORY 
EF 11 0 09 98 BRB 108 SFREE ALL SYMBOL PAGES 
0208 00 ; NOW DEALLOCATE THE INTERMEDIATE FILE 
52. O000'CF DO 0208 0¢ 208: MOVL W*MACSGL_INTQUE,R2 :POINT AT THE INTERMEDIATE FILE 
50. 52 d9 0210 30 0$: MOVL  R2,RO SANY MORE BLOCKS 
0D 13 021 04 BEQL IF EQ 
52. 62 00 215 305 MOVL  (R2),,R2 SYES=-LINK TO NEXT 
51 13F4 8F 3C 0218 306 MOVZWL #INT$K BUFSIZ,R1 GET SIZE OF THE BLOCK 
006E 30 021D 307 BSBW  DEAL_MEMORY SDEALLOCTE THE BLOCK 
EE 11 0220 308 BRB 30$ SDEALLOCATE WHOLE INTER. FILE 
039¢ 316 | : DEALLOCATE ANY MACROS DEFINED 
59 Q000'CF 9E 0222 312 40S: MOVAB.-W*MACSAL_UMCHSHTB.R9. =: POINT TO MACRO HASH TABLE 
$8 0080 8 3C O227 31 MOVZWL #<HASHSZ71>,R8 ;COUNT OF THE ENTR 
57 89 DO O22C 314 50$:  MOVL  (R9)+,R7 *GET NEXT BUCKET POINTER 
0 13 O2er 315 BEQL 708 L NON 
56 O57 00 0231 316 60$:  MOVL  R7,R6 SET POINTER INTO R6 
08 13 0234 317 BEQL 70$ EQL 
57 66 DO 0236 318 MOVL  (R6),R7 GET POINTER TO. NEXT MNB OR 0 
FDC4" 30 0239 319 BSBW  MACSDEL_MAC_DEF ‘DELETE THE MACRO DEF. 
F311 «023c~=—s 320 BRB :CONTINUE DELETING ON THIS BUCKET 
eB 58 OFS O25 21 708:  SOBGTR RB, 50$ ‘DELETE ALL MACRO DEFS. 
0 41 38 : DELETE THE FREE PAGES LIST 
50 0000'DF OF 0241 25 BOS:  REMQUE @W*MACSGL_FREE_LST.RO ;GET A PAGE 
0A 1D 0 46 6 V [IF V-SET NO MORE 
0000'CF 3 " 4 7 MOVZWL WMACSGK_1_PG_SIZ,R1 GET SIZE OF PAGE 
003E 30 024d 8 BSBW  DEAL_MEMORY ‘DEALLOCATE THE PAGE 
11 0 5 p BRB 80$ ~ : CONTINUE 
; i DEALLOCATE THE MACRO LIBRARY QUEUE AND THE INPUT FILE QUEUE 
50 0000'°DF OF 025 : $0$:  REMQUE @W°MACSGL_MLB_QUE,RO ;GET NEXT MLB TO RELEASE 
13° 1D 025 34 BVS IF VS NO MORE 
00000000'8F 50 D1 0259 335 CMPL —s«RO, #MACSSYSLIB_MLF [1S THIS SYSLIB? 
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MEMORY STRUCTURES 


16-SEP-1984 : 
g- -SEP att 7 oF: 
BEQL 1008 
MOVZWL #MLFSK_BLKSIZ,R1 
BSB AL_MEMORY 
100$: RERQUE a@W“MACSGL_INPQUE ,RO 
MOVZWL WMAC$GK_1_PG_SIZ,R1 
BSBW  - DEAL_MEMORY 
BRB 100$ 
DEALLOCATE THE LINKER OPTION RECORD(S). 
i108: REMQUE @W*MACS$GQ_LNKOPT,RO 
BVS 120$ 
MOVL  B(RO), 


BSBW DEAL > WERORY 
BRB 110$~ 
120$:  RSB 


5 ++ 
: ROUTINE TO DEALLOCATE MEMORY. 
: RO = ADDRESS OF BLOCK 
3 R1 - SIZE 
DEAL_MEMORY : 
PUSHL RO 
SP,RO 
R1 
MOVL _SP,R1 
RO 


R1 
CALLS #2,G*LIBSFREE_VM 
#2*4,SP 
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LOCK 
E 


:GET_THE Re ee OPTION RECORD'S ADDRESS. 
is THE QUEUE EMPTY? 
GET THE ae SIZE 
SAND DEALLOCATE IT. 
:EMPTY THE QUEUE. 


STACK BLOCK ADDRESS 

;REMEMBER ITS ADDRESS 

; STACK BLOCK SIZE 
;REMEMBER ITS ADDRESS 

i STACK He otiee OF ADDRESS 


AND THE 
;FREE THE MEMEORY 
;CLEAR THE STACK 
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y05~000 INITIALIZE FOR ONE PASS THROUGH THE SOUR met §4: 19:18 YRACRO SRe MAIN.MAR; 1 ° (6) 
yi! iS -SBTTL INITIALIZE FOR ONE PASS THROUGH THE SOURCE | 
A7 £6 34+ 
At 327; FUNCTIONAL DESCRIPTION: 
0 A7 79 ; THESE ROUTINES INITIALIZE THE STORAGE FOR ONE PASS THROUGH 
8 a i : THE SOURCE. 
02A7 ¢ 3 CALLING SEQUENCE: 
02A7 8 3 
02A7 4; JSB MACSINITP1 
6 Ag 8? ; OR JSB MACSINITP2 
02A7 Hg : INPUT PARAMETERS: 
02A7 88 ; 
O2A7 389 NONE 
02A7 339 : 
9 al 331 : IMPLICIT INPUTS: 
O2A7 39 : FOR MACSINITP1 IT IS EXPECTED THAT pMACSGL _FLAGS HAS BEEN 
02A7 338 : ZEROED AND THAT R11 POINTS TO THE FLAGS. 
02A7 95 ; 
02A7 336 i-- 
O2A7 97 
OgAr 398 MACSINITP2: sENTRY POINT FOR PASS 2 INITIALIZATION 
50 O0000'CF DO O2A7 399 MOVL W*MACSGL_SYMPGPTR,RO 3GET POINTER TO LAST PAGES ALLOCATED 
05 13 O2AC 400 BEQL 2 sI1F EQL NONE ALLOCATED 
QOOO'CF 60 OF OgAe 401 INSQUE (RO) WinACSGL SYM_PAGL iLINK LAST PAGES INTO SYMBOL PAGE QUEUE 
59 OOO00'CF 9E 028 402 2$: MOVAB  W*MACSAL_USYHSHTB-R9 POINT TO USER SYMBOL HASH TABLE 
58 0080 8F 3C O2BB 40 MOVZWL #HASHSZ+ US [LOAD UP SIZE OF TABLE 
FD40" 30 O2BD 404 BW  MACSSORT_TABLE [SORT THE SYMBOL TABLE 
QOOOO'CF 9F oeco 405 PUSHAB W“MACS$GQ-RNT P2 :STACK TIMING BLOCK ADDRESS 
0000'CF 01 FB 0204 406 LS #1,W*MACSTIMER ON iSTA ART TIMING P ASS 2 
00 68 OF £3 0209 407 BBCS FLGSV P2,(R113,10$ LAG PASS 2 IS U 
0000'8F 20 6€ 00 2C O2CD 408 108: MOVC5 #0, (SPT. A/ /,#MACSK spit Sit. - ;BLANK FILL SUBTITLE BUFFER 
0000' CF 0204 409 MACSAB_SBT_ on 
56 O0000'CF 9E 0207 410 MOVAB W* MACSAB IDENT TRS sPOINT TO IDENT STORAGE 
57 86 9A O2DC 411 MOVZBL (R6)+,R7~ [GET LENGTH OF yDENT 
1F \3 ber aie BEQL INIT NO 
QOOO'CF 66 57 02E1 41 MOVC3 R7,(R6),W*MACSAB_SBT_ INT: "COPY IDENT saNto SUBTITLE BUFFER 
O0OO'CF 57 09 A O2E7 414 208: LOCC #TAB,R7,W°MACSAB_SBT_IDNT FIN 
11 13 O2ED 415 BEQL INIT_O s1F EQL NO. 
61 20 90 O2EF 416 MOVB #*A/77,(R1) SYES=-CHANGE TO SPACE 
F311 9 Fe sue BRB 20$ CHANGE ALL THE TABS 
02F4 419 MACSINITP1: pREF LABEL 
QOOOO'CF OF O2F4 420 PUSHAB W*MAC$GQ_RNT_P1 sSTACK TIMING BLOCK ADDRESS 
OOOO'CF O01 F FB 421 CALLS #1,W*MACSTIMER_ON :START TIMING PASS 1 
p00’ 3 Fo 4 g BSBW MACSSETFRAME :GET BLOCK OF MEMORY AND SETUP 
08 é ; :TO STORE IN INT. BUFFER (SETUP R9) 
360 425 INIT_O: 
OOO'CF D4 300 4 $ CLRL W*MACSGL_LIST_LVL sSTART LISTING AT LEVEL 0 
OOO'CF D4 De CLRL W*MACSGL-LINE- CNT ;ZERO PAGE LINE COUNTE 
OOO'CF D4 308 428 Wena GL7LPTPAG sFIRST LISTING PAGE NUMBER 
0000'CF 01 9A 0C 429 MOVZBL 1 UeRACSEL SRCPAG sFIRST SOURCE PAGE NUMBER 
0OOO'CF D4 0311 430 GcmnceeL _LIRENUM sFIRST LINE 
| 
} 
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MACSMAIN ENTRY POINT TO VAX=-11 MACRO 16-SEP=1 :1 AX/VMS Macro v04-00 Page 
y04-000 PERFORM PASS 1 -SEP=1 1382 ge: 19: 8 ERACRO SRe MAIN.MAR; 1 ° 
4 466 .SBTTL PERFORM PASS 1 
4 44 
4 448 ;++ 
4 449 ;: 
45 450; PASS 1 
45 451; 
0345 126 -- 
0345 45 
0345 454 MACSPASS1: 
00 6B OE ES te te2 BBCC #FLGSV_P2,(R11),.+1 ;THIS IS PASS 1 
0349 457 ; COPY THE INITIAL SETTINGS OF THE ENABLE/DISABLE AND LIST/NLIST 
349 458 ; FLAGS TO THE TOKEN BYTE IN EACH OF THE SYMBOL BLOCKS SO THEY 
F984 £28 ; CAN BE RESET AT THE START OF PASS 2. 
55 O000'CF 96 0349 461 MOVAB web $T8G DIRLIST &R R5 POINT TO DIRECTIVE LIST 
0B AS 605 AS)90 0348 46¢ 10$: MOVB SYMSL_VAL(RS5) ,SYMS$B_ TOKEN(R (R5) ;SAVE THE INITIAL SETTING 
55 65 DO 0353 46 MOVL SYMSLZL INK (R55 ,R5 ; Link’ to next 
F6 12 0356 464 10$ 
55 O000'CF 9E& 0358 465 MOVAB W*ENBS$G_OPTIONS,RS POINT TO ENABLE OPTIONS 
AS 05 AS 90 035D 466 20S: MOVB SYM$L_VAL(R5) ,SYMSB_ TOKEN CRS) sSAVE INITIAL SETTING 
55 65 00 036¢ 467 MOVL  SYMSLILINK(R5S,R5 : Link to next 
F6 12 036 468 BNEQ 20$ LOOP FOR 
0367 469 SINTOUT_LW INT$_NEWP,#PSECTSMAIN ; ABSOLUTE ABET 
0373 470 SINTOUT— LW INT$_N NEWP APSECTSBLANK. sBLANK PSECT 
O37F 09 471 SINTOUT_LW INTs P PSECT,#PSECTSBLANK ;START IN BLANK PSECT 
OOOO'CF SE 00 0388 478 MOVL “SP,W*MACSGL_SAVE_SP ;SAVE STACK POINTER 
FC6D' 30 0330 i3 8SBW mACSPARSE CALL PASS 1 DRIVER 
0393 475 ; PASS 1 IS COMPLETED 
0393 476; 
0393 477; 
0393 478 ; THE ROUTINE MACSPARSE DOES NOT RETURN. RATHER, WHEN THE END 
0393 479 : STATEMENT IS SEEN (OR FORCED), CONTROL WILL COME TO MACSPASS1_END 
0393 480 ; FOR A NORMAL END OF PASS 1 OR TO MACSABORT_PASS1 IF IT IS 
0393 481 : ABORTED. 
0393 rt) 2 
0393 483 MACSABORT_PASS1: 
FC6A' 30 0393 484 BSBW MACSCLS _DEL_OBJ CLOSE AND DELETE OBJECT FILE 
0396 485 MACSPASSS END:: 
SE O000'CF DO 0396 486 MOVL W*MACS$GL_SAVE_SP,SP ;RESTORE STACK POINTER 
0398 487 SINTOUT_X INT$_ERD SEND OF IN U toot hl FILE 
FCSC' 30 O3A1 488 BSBW “RACSF IRE RAME [FIX THE COUNT WORD IN LAST BUFFER 
O3A6 489 ;_T0 VIRTUAL NREMORY 
0004'DF D4 AG 490 CLRL @W*MACSGL_INTQUE+4 ;ZERO LINK IN LAST BU 
O3A8 491 : SO THAT PASS 2 CAN DETECT ERROR 
O000'CF 9F O3A8 ane PUSHAB W*MACS$GT_SCB : Suplly SUM consrol block address 
00000000 ' GF 01 FB Baas 49 CALLS #1,G*SUMSCLOSE 3; Close undat iles 
038 494 SISCoNNECt VRABSWTRACSINEUT RAB ;DISCONNECT THE RECORD i 
50 0000'CF b0 o388 495 MOVL W*MACSGL_CURINFDB,RO sPOINT TO CURRENT INPUT FOB 
th 138 SCLOSE FAB=8(R ;CLOSE THE INPUT FIL 
FC30°" 30 CD 49 BSBW pecteh ose LE LIB ;CLOSE MACRO LIBRARY FILES 
0000' CF oF 300 498 PUSHAB W“MACSG Pl sSTACK TIMING BLOCK ADDRESS 
0O00'CF 01 FB 306 499 CALLS #1 Meno grin _OFF sSTOP TIMING PASS 1 
05 4 200 RSB sPASS 1 1S COMPLETED 
bapa 3) . END MACSMACRO_ENTRY 
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Symbol table =SEP=1984 01:49:1 MACRO.SRCJMAIN.MAR; 1 (7) 
FLGSV_OPNDCHK = § S INTS_SETFLAG = 68 § 
FLGS$V_OPRND = INT$_SETLONG = 
FLGSV_OPTVFLIDX = INTS_SPIC = 00000024 
FLG$V_ORDLST = INT$_SPID = 000 3 5 
FLGS$V_ = 0 INT$_STIB = 8 
FLGS$V_RPTIRP = 1 INTS_STIL z 0 
FLGSV_SEQFIL = 1 INT$_STIW = 000000 
FLGSV_SKAN = 0000 INTS_STKEPT = 000 3 9 
FLG$V_SPECOP = 0000 INTS_STKG = 0000002A 
FLGSV_SPLALL = 0000001 INTS_STKL 2 ast B 
FLGSV_STOIMF = 0000001 INT$S_STKPC = 0000002C 
FLGSV_SYM2COL = 8 8 INTS_STKS = at D 
FLGSV_TOCFLG = INT$_STOB z 4 
FLGSV_UPAFLG = 0 INTS_STOL = ead: 
FLGSV_UPOF IL = 0 INT$S_STOW = 000000 
FLGSV_UPMARG = 0 INT$_STRB = a4 
LGS$V"XCR = 0000001 INTS_STRL = 00000031 
TC 0 3 R 03 INTS_STRSB = Bonn aS 
HASASZ = INT$_STRSW = 0000003 
HYPHEN = INTS_STRW = 00000030 
INIT_O R 03 INTS$_STSB = 00000036 
INPSR_BUFS1Z = INTS_STSW = 00000037 
INTSK_BUFSIZ = INT$_SUB = 0000000A 
INTSK_BUF WRN = INT$_SUME = 00000039 
INTS_ = INTS_WRN = 00000038 
INT$_AND = INTS_XOR = 00000008 
INT$S_ASH = LIBSFREE_VM aeeeeeee =X 03 
INTS_AS = LIBSLP_LINES eeeeeene = X 03 
INT$S_AUGPC = LST$G_BIRLIST aeeeenee X 03 
INTS_BDST = LSTS$K_BUFSIZ = 00000086 
INTS_CHKL = LSTSK_L_P_PAGE = 00000035C¢ 
INTS_DIV = LSTSK-TITCE SIZ = 00000028 
INTS_END = MACSABORT_PASS1 00000393 03 
INTS_EPT = MACSAB_DEF_TITL eeenenee =X 03 
INTS_ERR 2 MACSAB_HD_PAGE eeeeeeee =X 03 
TS_ET = MACSAB_HD_TITLE eeeeeeee = X 03 
INTS_FNEWL = MACSAB_HD-VERSN aeeneeee =X 03 
T$_ILG = MACSAB_ ID eeeneeee =X 03 
INTS_INFO = MACSAB_SBT_IDONT aereeeee = X 03 
INT$_LGLAB = MACSAB_VERSION eereeeee =X 03 
INTS_MACL z MACSAL_ATIM_DSC aexeeeee =X 03 
INTS_MUL = MACSAL_UMCHSHTB aeeneeee =X 03 
INT$_NEG = MACSAL"USYHSHTB aeeeeeee =X 03 
TS_NEWL z MACSCLOSE_FILES teenenee X 03 
INTS_NEWP z MACSCLOSE-L eeeeeeee =X 03 
T$_NOT = MACSCLS_DEL_OBJ aeeeeeee = X 03 
INT$_OP = MACSDEL_MAC_DEF aexeeeee =X 03 
INT$_OR = MACSERR-OPN-OUT eexeeene =X 03 
INTS_PRIL = MACSF IXFRAME aeeeeeee =X H 
INTS_PRT z MACS$GB_INPNAMLEN eeeeeeee =X 
INTS_PSECT = C MAC$GB_RDXNDX aeeeeeee =X 03 
INT$_REDEF = D MACSGETCMD eeneneee =X 0 
INTS_REF = E mAbees tte eeeneeee 8 
INTS_REST = F MAC$GK_1_PG_SIZ aeeeeeee =X 
T$_ SAME = :) MACSGK_IAP_S1Z aeneeeee =X 0) 
INTS_SAV z 0 MACSGL-CLIADDR aeeeeeee =X 0 
INTS_SBTTL s 1 MACSGL_CRSYM teeeeeee =X 
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MACSMAIN en ne er So "Beep 1982 07:49:19 EMACKO SRCIMAIN MARS (3) 
Symbol table , 
RRR 

MACSGL_CURINFDB wane 2 yg Uh dha ceceeeee fOOS 
MACSGL_ERR_LIST seennees . MACSTIMER OFF eeeeeree § 3 
MACSGL FLAGS penceuse MACSTIMER-ON eeeeense =X 03 
MACSGL_FNLSTS Deneuaad x 0 MACRO_EXIT QQ0009A R 03 
MACSGL_FREE LST oneee ne MAC_DEAL_MEM OO001FA 03 
MACSGL__IMP_BEG weonmee 8 MAC7SUBSTS 2 07D 
MACSGL_INI LAP rian Xx $3 MLFSK_BLKSIZ 38 177 
MACSGL_INI_FP eereee XX 03 MLFSK-RSFNLN = QOOOOOFF 
MACSGL_INI SP leiwbien x 0O MLFSL_CTINDEX 0000014 
MACSGL _INPGUE nea nnoe le Tae MLFSLIMCDEF 0000008 
MACSGL _INPUTP saneaten y MLFSL_QLINK 8808 3 
MACSGL _INTQUE pemnaens y 83 MLFSQ-FNAMDS ¢ 

CSGL_LINBAS eeerenee X03 MLFST~FNAM 00000078 
MACSGL_LINENUM eeeneeee X03 MLF $X"NAMBLK 90000018 
MACSGL_LINE_CN eeeeeeee XX 03 NAM$B_RSL = 0000000 
MACSGL_LIST IT eeeeeeee § X 03 NAM$C_BLN = 00000060 
MACSGL_LIST LVL eeenene = X 03 NAMSC_MAXRSS = QOOOO0FF 
WACSGL LN, PAGE seeeceen a. ae AMSL RSA = 00000004 
MACSGL_LPTPAG spaampeane a. = OBJ$K"BUFS = 00000200 
MACSCL eeeseres X03 OPF SM~LASTOPR = 00002000 
MACSGL_MLB_QUE teenenee X03 OPF SMOPTEXP = 00001600 

Sy ge erences X03 OPF$V“LASTOPR = 00000000 
RACSGL PSC RAK teeneene X03 OPF SV-OPTE = 0000000¢ 
MACSGL_PSECT eeeeee X03 PSC$B-NAME 90000004 
MACSGL _PSECTPTR ceeseene X03 SC$B"SEG 9000000¢ 
MACSGL SAVE, SP teeeeeee X03 PSC$B-UNUSED 90000008 
MACSGL _SRCPAG yenunant xX 03 PSC$K-BLKSIZ 0000001 
MACSGL_STATUS seeerere X03 PSCSK-NO_OPTNS = 0000000A 
MACSGL_SYM_PAGL eeerenee X03 PSCSL-LI 90000000 
MACSGQ_LNKOPT ceeeeeee X08 PSCSL-MAXLGTH 00000005 
MACSGQ_RNT_INI eeeeeeee KX 03 PSCSM_ABS = FRPFEPE? 
RACSCO_RNT_P] ereeeeee X03 PSCSM~ALIGNFLG = 00004000 
MAC$GQ_RNT_P2 aeeneeee KX 03 PSC$M_ALLOPTNS = QOOO0SFF 
MACSGO_RNT _TOT teenee X 03 PSCSM-BYTE = 00004000 
MACSGT_SC 000002F4 R03 PSCSM~CON = FFFFFFFB 
ee lied QOO00SA? ROS PSCSMZDEFAULT = 000001¢8 
MACS INI TPS ceomenee 2 a8 PSCSM~EXE = 000000C0 
MACS INPUT_RAB teeeeeee X03 PSCSM~GBL = 00000010 
chin gy! RLF NA Saammaiol . PSCSM_LCL 7 aaa 
RACSINTOUT.T_Lu creceedit ga aay. 35 2 = 000%800 
MACSINT eeenee =X 6 PSCSM_NOEXE = FFFFPFBE 
MACSK_HD_ SIZE soenenes xX $3 PSCS$M_NOPIC = FFPFFFFE 
MAC$K-SBT_SIZ 0 RG 03 PSC$M NORD = FFFFEFF7F 
MACSLAST CHANCE 000000 Ore 08 PSCSM_NOSHR = FFFFFFDF 
MACSMACRO_ENTRY oesvees Bae PSCSM~NOVEC = FFFFFDFF 
MACSOPEN, INPUT ceeveree PSCSMNOWRT = FFPFFErE 
MACSPASS1 00000345 R 03 PSCSM~OVR = F088 0788 
RACEPASS1_ EN 00000396 Rc, BF ELENPAGE = B33e6884 
soph ta ty fd ever X08 PSC$M-QUAD = 90004C00 
MACSSETFRAME whee . ; PSCEMTRD ‘ 0 
RACSSE TUP es PSCSM"REL = Ong 8n gs 
MACS TSU TB ALE seneeeee x a3 PSCSACSHR = 00000020 
MACSSYSLIB~SET eereeree YX PSCSM_US 
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: Performance indicators ! 


Soe eee eee eRe woos sco omeaat 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00:00:00 .08 00: 00:01.55 
—¥ processing 103 00:00:00.38 00:00:04 .06 

s 1 286 Se SE B3: :00: +6 Be 
Synbol table sort 0 88: 00.87 0:00: $2 

s 2 116 00:00:01.41 00:00:06.38 
Syabot table output 50 00:00:00.19 00:00:01.56 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 587 00:00:08.83 00:00:39.66 


The working set Limit was 1350 pages. 

52814 bytes (104 pages) of virtual memory were used to buffer the intermediate c 

There were 50 pages of symbol table space allocated to hold 918 non-local and 25° a symbols. 
2 source Lines were read in Pass 1, producing 26 object records in Pass 2. 

24 pages of virtual memory were used to define 22 macros. 


See Eee rene tee moma cama ana + 


Macro Library name Macros defined 
5 Sz 2SDUAgE: wine -OBJ JMACRO.MLB; 1 

$255$DUA28: CSYSLIBJSTARLET.MLB; 2 1 
TOTALS (all Libraries) 2 
1017 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:MAIN/OBJ=OBJ$:MAIN MSRC$:MAIN/UPDATE=(ENH$: MAIN) +LIB$:MACRO/LIB 


MACSMAIN : ENTRY POINT TO VAX=11 MACRO a it 3 ft B49 be: 19:18 ered ey Macro V04-00 Page 18 
Psect synopsis -SEP=-1984 01:49:1 MACRO.SRCJMAIN.MAR; 1 (7) 
+eeeeeceeces eocceeee} 
: ;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT moves BYTE 
- BLANK . BO bOS ye ( af 4 ( 1.) NOPIC USR CON REL LCL NOSHR' EXE RD ee OVEC BYTE 
SABSS 00001 ( 375.) ¢ ( ¢°} NOPIC USR CON ABS LCL NOSHR EXE RD OVEC BYTE 
MACSRO_CODE_COM QOOO03DA ( 986.) 035 ¢ -) NOPIC USR CON REL GBL NOSHR' EXE RD NOURT NOVEC LONG 
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